home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / rdpage.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  888b  |  38 lines
  1. /*****************************************************************************
  2.  
  3.     RdPage()
  4.  
  5.     This function reads a page from the current input file into the
  6. edit buffer.
  7.  
  8. *****************************************************************************/
  9.  
  10. #include "zport.h"        /* define portability identifiers */
  11. #include "tecoc.h"        /* define general identifiers */
  12. #include "defext.h"        /* define external global variables */
  13. #include "deferr.h"        /* define identifiers for error messages */
  14.  
  15. DEFAULT RdPage()        /* read a page */
  16. {
  17.     BOOLEAN EBfFul;
  18.  
  19.     DBGFEN(2,"RdPage",NULL);
  20.  
  21. /*
  22.  * loop,  reading until end-of-file or a form feed is encountered, or the
  23.  * edit buffer fills up
  24.  */
  25.  
  26.     EBfFul = FALSE;
  27.     do {
  28.         if (RdLine(&EBfFul) == FAILURE) {
  29.             DBGFEX(2,DbgFNm,"FAILURE");
  30.             return FAILURE;
  31.         }
  32.     } while (!IsEofI[CurInp] && !FFPage && !EBfFul);
  33.  
  34.     DBGFEX(2,DbgFNm,"SUCCESS");
  35.  
  36.     return SUCCESS;
  37. }
  38.